home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 10
/
AACD 10.iso
/
AACD
/
System
/
AslPrefs
/
Install
< prev
next >
Wrap
Text File
|
2000-05-27
|
2KB
|
110 lines
; $VER: Installer script for AslPrefs 1.0 (27.05.00) © 2000 by Stephan Rupprecht
;--- localize strings ----
(if (= @language "deutsch")
(
(set #wrongver "AslPrefs benötigt OS3.5 oder besser !!!")
(set #askdir_mainprg "Wohin soll das Hauptprogramm kopiert werden?")
(set #askdir_prefs "Bitte wählen Sie das Zielverzeichnis für das Voreinstellungsprogramm")
)
(
(set #wrongver "AslPrefs requires OS3.5 or better !!!")
(set #askdir_mainprg "Please select the destination drawer for AslPrefs")
(set #askdir_prefs "Please select the drawer for the preferences editor")
)
)
;--- check os version ---
(set #vernum (getversion "workbench.library" (resident)))
(set #vernum (/ #vernum 65536))
(if(< #vernum 44)
(abort #wrongver)
)
;--- askdir for main program ---
(set @default-dest
(askdir
(prompt #askdir_mainprg)
(help @askdir-help)
(default "SYS:WBStartup")
)
)
;--- askdir for prefs program ---
(set #prefs-dir
(askdir
(prompt #askdir_prefs)
(help @askdir-help)
(default "SYS:Prefs")
)
)
;--- copy mainprg ---
(copyfiles
(help @copyfiles-help)
(source "aslprefs")
(dest @default-dest)
)
;--- copy .info file if neccessary ---
(set #info_path (tackon @default-dest "AslPrefs.info") )
(if (not (exists #info_path) )
(copyfiles
(help @copyfiles-help)
(source "AslPrefs.info")
(dest @default-dest)
)
)
;--- copy prefsed ---
(copyfiles
(help @copyfiles-help)
(source "prefs/aslprefs")
(dest #prefs-dir)
)
;--- copy catalog ---
(if (NOT (= @language "english"))
(
(set #src_name
(tackon "Catalogs/" @language)
)
(set #dst_name
(tackon "LOCALE:" #src_name)
)
(set #src_name
(tackon #src_name "aslprefs.catalog")
)
(if (exists #src_name (noreq))
(
(copyfiles
(help @copyfiles-help)
(source #src_name)
(dest #dst_name)
)
)
(message "Sorry, there is no " @language " catalog available at the moment!")
)
)
)
;--- copy .info file if neccessary ---
(set #info_path (tackon #prefs-dir "AslPrefs.info") )
(if (not (exists #info_path) )
(copyfiles
(help @copyfiles-help)
(source "prefs/AslPrefs.info")
(dest #prefs-dir)
)
)
;--- eof ---